home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / lisp / kcl_tar.z / kcl_tar / lsp / predlib.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-06-04  |  45.2 KB  |  2,418 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "predlib.h"
  5. init_predlib(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     base[0]= VV[0];
  9.     (void)simple_symlispcall_no_event(VV[91],base+0,1);
  10.     data->v.v_self[1]=VV[1]=string_to_object(VV[1]);
  11.     vs_top=sup;
  12.     MM(VV[7],L2,start,size,data);
  13.     (void)(putprop(VV[13],VV[14],VV[15]));
  14.     base[0]= 
  15.     make_cclosure(LC57,Cnil,Cnil,Cdata,Cstart,Csize);
  16.     (void)(putprop(VV[13],base[0],VV[19]));
  17.     (void)(putprop(VV[13],Cnil,VV[20]));
  18.     (void)(putprop(VV[21],VV[22],VV[15]));
  19.     base[0]= 
  20.     make_cclosure(LC58,Cnil,Cnil,Cdata,Cstart,Csize);
  21.     (void)(putprop(VV[21],base[0],VV[19]));
  22.     (void)(putprop(VV[21],Cnil,VV[20]));
  23.     (void)(putprop(VV[24],VV[25],VV[15]));
  24.     base[0]= 
  25.     make_cclosure(LC59,Cnil,Cnil,Cdata,Cstart,Csize);
  26.     (void)(putprop(VV[24],base[0],VV[19]));
  27.     (void)(putprop(VV[24],Cnil,VV[20]));
  28.     (void)(putprop(VV[27],VV[28],VV[15]));
  29.     base[0]= 
  30.     make_cclosure(LC60,Cnil,Cnil,Cdata,Cstart,Csize);
  31.     (void)(putprop(VV[27],base[0],VV[19]));
  32.     (void)(putprop(VV[27],Cnil,VV[20]));
  33.     (void)(putprop(VV[32],VV[33],VV[15]));
  34.     base[0]= 
  35.     make_cclosure(LC61,Cnil,Cnil,Cdata,Cstart,Csize);
  36.     (void)(putprop(VV[32],base[0],VV[19]));
  37.     (void)(putprop(VV[32],Cnil,VV[20]));
  38.     (void)(putprop(VV[35],VV[36],VV[15]));
  39.     base[0]= 
  40.     make_cclosure(LC62,Cnil,Cnil,Cdata,Cstart,Csize);
  41.     (void)(putprop(VV[35],base[0],VV[19]));
  42.     (void)(putprop(VV[35],Cnil,VV[20]));
  43.     (void)(putprop(VV[38],VV[39],VV[15]));
  44.     base[0]= 
  45.     make_cclosure(LC63,Cnil,Cnil,Cdata,Cstart,Csize);
  46.     (void)(putprop(VV[38],base[0],VV[19]));
  47.     (void)(putprop(VV[38],Cnil,VV[20]));
  48.     (void)(putprop(VV[41],VV[42],VV[15]));
  49.     base[0]= 
  50.     make_cclosure(LC64,Cnil,Cnil,Cdata,Cstart,Csize);
  51.     (void)(putprop(VV[41],base[0],VV[19]));
  52.     (void)(putprop(VV[41],Cnil,VV[20]));
  53.     (void)(putprop(VV[43],VV[44],VV[15]));
  54.     base[0]= 
  55.     make_cclosure(LC65,Cnil,Cnil,Cdata,Cstart,Csize);
  56.     (void)(putprop(VV[43],base[0],VV[19]));
  57.     (void)(putprop(VV[43],Cnil,VV[20]));
  58.     (void)(putprop(VV[46],VV[47],VV[15]));
  59.     base[0]= 
  60.     make_cclosure(LC66,Cnil,Cnil,Cdata,Cstart,Csize);
  61.     (void)(putprop(VV[46],base[0],VV[19]));
  62.     (void)(putprop(VV[46],Cnil,VV[20]));
  63.     (void)(putprop(VV[48],VV[49],VV[15]));
  64.     base[0]= 
  65.     make_cclosure(LC67,Cnil,Cnil,Cdata,Cstart,Csize);
  66.     (void)(putprop(VV[48],base[0],VV[19]));
  67.     (void)(putprop(VV[48],Cnil,VV[20]));
  68.     MF(VV[92],L47,start,size,data);
  69.     base[0]= VV[50];
  70. T60:;
  71.     if(!(endp(base[0]))){
  72.     goto T61;}
  73.     goto T58;
  74. T61:;
  75.     (void)(putprop(caar(base[0]),cdar(base[0]),VV[51]));
  76.     base[0]= cdr(base[0]);
  77.     goto T60;
  78. T58:;
  79.     MF(VV[93],L49,start,size,data);
  80.     MF(VV[94],L50,start,size,data);
  81.     MF(VV[95],L51,start,size,data);
  82.     MF(VV[96],L52,start,size,data);
  83.     MF(VV[97],L53,start,size,data);
  84.     MF(VV[98],L54,start,size,data);
  85.     MF(VV[99],L55,start,size,data);
  86.     MF(VV[100],L56,start,size,data);
  87.     vs_top=vs_base=base;
  88. }
  89. /*    macro definition for DEFTYPE    */
  90.  
  91. static L2()
  92. {    register object *base=vs_base;
  93.     register object *sup=base+VM3;
  94.     vs_reserve(VM3);
  95.     check_arg(2);
  96.     vs_top=sup;
  97.     {object V1=base[0]->c.c_cdr;
  98.     if(endp(V1))invalid_macro_call();
  99.     base[2]= (V1->c.c_car);
  100.     V1=V1->c.c_cdr;
  101.     if(endp(V1))invalid_macro_call();
  102.     base[3]= (V1->c.c_car);
  103.     V1=V1->c.c_cdr;
  104.     base[4]= V1;}
  105.     base[5]= base[3];
  106.     base[6]= Cnil;
  107. T71:;
  108.     if((base[5])!=Cnil){
  109.     goto T72;}
  110.     goto T69;
  111. T72:;
  112.     {object x= car(base[5]),V2= VV[1];
  113.     while(!endp(V2))
  114.     if(eql(x,V2->c.c_car)){
  115.     goto T78;
  116.     }else V2=V2->c.c_cdr;
  117.     goto T76;}
  118. T78:;
  119.     if(car(base[5])==VV[2]){
  120.     goto T79;}
  121.     goto T69;
  122. T79:;
  123.     base[6]= make_cons(VV[2],base[6]);
  124.     base[5]= cdr(base[5]);
  125. T88:;
  126.     if((base[5])==Cnil){
  127.     goto T90;}
  128.     {object x= car(base[5]),V3= VV[1];
  129.     while(!endp(V3))
  130.     if(eql(x,V3->c.c_car)){
  131.     goto T93;
  132.     }else V3=V3->c.c_cdr;
  133.     goto T89;}
  134. T93:;
  135. T90:;
  136.     goto T86;
  137. T89:;
  138.     if(!(type_of(car(base[5]))==t_symbol)){
  139.     goto T97;}
  140.     base[7]= list(2,car(base[5]),VV[3]);
  141.     base[6]= make_cons(base[7],base[6]);
  142.     goto T95;
  143. T97:;
  144.     base[6]= make_cons(car(base[5]),base[6]);
  145. T95:;
  146.     base[5]= cdr(base[5]);
  147.     goto T88;
  148. T86:;
  149.     base[7]= base[6];
  150.     base[8]= base[5];
  151.     vs_top=(vs_base=base+7)+2;
  152.     Lreconc();
  153.     vs_top=sup;
  154.     base[3]= vs_base[0];
  155.     goto T69;
  156. T76:;
  157.     base[7]= cdr(base[5]);
  158.     base[6]= make_cons(car(base[5]),base[6]);
  159.     base[5]= base[7];
  160.     goto T71;
  161. T69:;
  162.     base[5]= list(2,VV[6],base[2]);
  163.     base[6]= listA(4,VV[7],base[2],base[3],base[4]);
  164.     base[7]= list(2,VV[6],base[6]);
  165.     base[8]= list(4,VV[5],base[5],base[7],VV[8]);
  166.     base[9]= list(2,VV[6],base[2]);
  167.     base[10]= listA(3,VV[10],base[3],base[4]);
  168.     base[11]= list(2,VV[9],base[10]);
  169.     base[12]= list(4,VV[5],base[9],base[11],VV[11]);
  170.     base[13]= list(2,VV[6],base[2]);
  171.     base[15]= base[4];
  172.     base[14]= simple_symlispcall_no_event(VV[101],base+15,1);
  173.     base[15]= list(4,VV[5],base[13],base[14],VV[12]);
  174.     base[16]= list(2,VV[6],base[2]);
  175.     base[17]= list(5,VV[4],base[8],base[12],base[15],base[16]);
  176.     vs_top=(vs_base=base+17)+1;
  177.     return;
  178. }
  179. /*    function definition for SIMPLE-ARRAY-P    */
  180.  
  181. static L47()
  182. {    register object *base=vs_base;
  183.     register object *sup=base+VM4;
  184.     vs_reserve(VM4);
  185.     check_arg(1);
  186.     vs_top=sup;
  187. TTL:;
  188.     if(type_of(base[0])==t_array||
  189. type_of(base[0])==t_vector||
  190. type_of(base[0])==t_string||
  191. type_of(base[0])==t_bitvector){
  192.     goto T115;}
  193.     base[1]= Cnil;
  194.     vs_top=(vs_base=base+1)+1;
  195.     return;
  196. T115:;
  197.     base[2]= base[0];
  198.     vs_top=(vs_base=base+2)+1;
  199.     Ladjustable_array_p();
  200.     vs_top=sup;
  201.     base[1]= vs_base[0];
  202.     if((base[1])==Cnil){
  203.     goto T117;}
  204.     base[1]= Cnil;
  205.     vs_top=(vs_base=base+1)+1;
  206.     return;
  207. T117:;
  208.     base[2]= base[0];
  209.     base[1]= simple_symlispcall_no_event(VV[102],base+2,1);
  210.     if((base[1])==Cnil){
  211.     goto T121;}
  212.     base[1]= Cnil;
  213.     vs_top=(vs_base=base+1)+1;
  214.     return;
  215. T121:;
  216.     base[2]= base[0];
  217.     vs_top=(vs_base=base+2)+1;
  218.     siLdisplaced_array_p();
  219.     vs_top=sup;
  220.     base[1]= vs_base[0];
  221.     base[2]= ((base[1])==Cnil?Ct:Cnil);
  222.     vs_top=(vs_base=base+2)+1;
  223.     return;
  224. }
  225. /*    function definition for TYPEP    */
  226.  
  227. static L49()
  228. {    register object *base=vs_base;
  229.     register object *sup=base+VM5;
  230.     vs_reserve(VM5);
  231.     check_arg(2);
  232.     vs_top=sup;
  233. TTL:;
  234.     base[2]= Cnil;
  235.     base[3]= Cnil;
  236.     if(!(type_of(base[1])!=t_cons)){
  237.     goto T129;}
  238.     base[2]= base[1];
  239.     base[3]= Cnil;
  240.     goto T127;
  241. T129:;
  242.     base[2]= car(base[1]);
  243.     base[3]= cdr(base[1]);
  244. T127:;
  245.     base[4]= get(base[2],VV[51],Cnil);
  246.     if((base[4])==Cnil){
  247.     goto T137;}
  248.     base[5]= base[0];
  249.     vs_top=(vs_base=base+5)+1;
  250.     super_funcall_no_event(base[4]);
  251.     return;
  252. T137:;
  253.     {object V4= base[2];
  254.     if((V4!= VV[59]))goto T142;
  255.     {object x= base[0],V5= base[3];
  256.     while(!endp(V5))
  257.     if(eql(x,V5->c.c_car)){
  258.     base[4]= V5;
  259.     vs_top=(vs_base=base+4)+1;
  260.     return;
  261.     }else V5=V5->c.c_cdr;
  262.     base[4]= Cnil;
  263.     vs_top=(vs_base=base+4)+1;
  264.     return;}
  265. T142:;
  266.     if((V4!= VV[62]))goto T143;
  267.     base[5]= base[0];
  268.     base[6]= car(base[3]);
  269.     vs_top=(vs_base=base+5)+2;
  270.     L49();
  271.     vs_top=sup;
  272.     base[4]= vs_base[0];
  273.     base[5]= ((base[4])==Cnil?Ct:Cnil);
  274.     vs_top=(vs_base=base+5)+1;
  275.     return;
  276. T143:;
  277.     if((V4!= VV[60]))goto T147;
  278.     base[4]= base[3];
  279. T149:;
  280.     if((base[4])!=Cnil){
  281.     goto T150;}
  282.     base[5]= Cnil;
  283.     vs_top=(vs_base=base+5)+1;
  284.     return;
  285. T150:;
  286.     base[5]= base[0];
  287.     base[6]= car(base[4]);
  288.     vs_top=(vs_base=base+5)+2;
  289.     L49();
  290.     vs_top=sup;
  291.     if((vs_base[0])==Cnil){
  292.     goto T154;}
  293.     base[5]= Ct;
  294.     vs_top=(vs_base=base+5)+1;
  295.     return;
  296. T154:;
  297.     base[4]= cdr(base[4]);
  298.     goto T149;
  299. T147:;
  300.     if((V4!= VV[61]))goto T162;
  301.     base[4]= base[3];
  302. T164:;
  303.     if((base[4])!=Cnil){
  304.     goto T165;}
  305.     base[5]= Ct;
  306.     vs_top=(vs_base=base+5)+1;
  307.     return;
  308. T165:;
  309.     base[5]= base[0];
  310.     base[6]= car(base[4]);
  311.     vs_top=(vs_base=base+5)+2;
  312.     L49();
  313.     vs_top=sup;
  314.     if((vs_base[0])!=Cnil){
  315.     goto T169;}
  316.     base[5]= Cnil;
  317.     vs_top=(vs_base=base+5)+1;
  318.     return;
  319. T169:;
  320.     base[4]= cdr(base[4]);
  321.     goto T164;
  322. T162:;
  323.     if((V4!= VV[103]))goto T177;
  324.     base[4]= car(base[3]);
  325.     base[5]= base[0];
  326.     vs_top=(vs_base=base+5)+1;
  327.     super_funcall_no_event(base[4]);
  328.     return;
  329. T177:;
  330.     if((V4!= Ct))goto T180;
  331.     base[4]= Ct;
  332.     vs_top=(vs_base=base+4)+1;
  333.     return;
  334. T180:;
  335.     if((V4!= Cnil))goto T181;
  336.     base[4]= Cnil;
  337.     vs_top=(vs_base=base+4)+1;
  338.     return;
  339. T181:;
  340.     if((V4!= VV[13]))goto T182;
  341.     base[5]= base[0];
  342.     vs_top=(vs_base=base+5)+1;
  343.     Ltype_of();
  344.     vs_top=sup;
  345.     base[4]= vs_base[0];
  346.     base[5]= (base[4]==VV[13]?Ct:Cnil);
  347.     vs_top=(vs_base=base+5)+1;
  348.     return;
  349. T182:;
  350.     if((V4!= VV[52]))goto T185;
  351.     base[5]= base[0];
  352.     vs_top=(vs_base=base+5)+1;
  353.     Ltype_of();
  354.     vs_top=sup;
  355.     base[4]= vs_base[0];
  356.     base[5]= (base[4]==VV[52]?Ct:Cnil);
  357.     vs_top=(vs_base=base+5)+1;
  358.     return;
  359. T185:;
  360.     if((V4!= VV[53]))goto T188;
  361.     base[5]= base[0];
  362.     vs_top=(vs_base=base+5)+1;
  363.     Ltype_of();
  364.     vs_top=sup;
  365.     base[4]= vs_base[0];
  366.     base[5]= (base[4]==VV[53]?Ct:Cnil);
  367.     vs_top=(vs_base=base+5)+1;
  368.     return;
  369. T188:;
  370.     if((V4!= VV[104]))goto T191;
  371.     if(type_of(base[0])==t_character){
  372.     goto T192;}
  373.     base[4]= Cnil;
  374.     vs_top=(vs_base=base+4)+1;
  375.     return;
  376. T192:;
  377.     base[4]= base[0];
  378.     vs_top=(vs_base=base+4)+1;
  379.     Lstandard_char_p();
  380.     return;
  381. T191:;
  382.     if((V4!= VV[40]))goto T195;
  383.     if(type_of(base[0])==t_character){
  384.     goto T196;}
  385.     base[4]= Cnil;
  386.     vs_top=(vs_base=base+4)+1;
  387.     return;
  388. T196:;
  389.     base[4]= base[0];
  390.     vs_top=(vs_base=base+4)+1;
  391.     Lstring_char_p();
  392.     return;
  393. T195:;
  394.     if((V4!= VV[16]))goto T199;
  395.     if(type_of(base[0])==t_fixnum||type_of(base[0])==t_bignum){
  396.     goto T200;}
  397.     base[4]= Cnil;
  398.     vs_top=(vs_base=base+4)+1;
  399.     return;
  400. T200:;
  401.     base[4]= base[0];
  402.     base[5]= base[3];
  403.     vs_top=(vs_base=base+4)+2;
  404.     L54();
  405.     return;
  406. T199:;
  407.     if((V4!= VV[82]))goto T204;
  408.     base[4]= base[0];
  409.     if((simple_symlispcall_no_event(VV[105],base+4,1))!=Cnil){
  410.     goto T205;}
  411.     base[4]= Cnil;
  412.     vs_top=(vs_base=base+4)+1;
  413.     return;
  414. T205:;
  415.     base[4]= base[0];
  416.     base[5]= base[3];
  417.     vs_top=(vs_base=base+4)+2;
  418.     L54();
  419.     return;
  420. T204:;
  421.     if((V4!= VV[83]))goto T210;
  422.     if(type_of(base[0])==t_shortfloat||type_of(base[0])==t_longfloat){
  423.     goto T211;}
  424.     base[4]= Cnil;
  425.     vs_top=(vs_base=base+4)+1;
  426.     return;
  427. T211:;
  428.     base[4]= base[0];
  429.     base[5]= base[3];
  430.     vs_top=(vs_base=base+4)+2;
  431.     L54();
  432.     return;
  433. T210:;
  434.     if((V4!= VV[54]))goto T215;
  435.     base[5]= base[0];
  436.     vs_top=(vs_base=base+5)+1;
  437.     Ltype_of();
  438.     vs_top=sup;
  439.     base[4]= vs_base[0];
  440.     if(base[4]==VV[54]){
  441.     goto T216;}
  442.     base[4]= Cnil;
  443.     vs_top=(vs_base=base+4)+1;
  444.     return;
  445. T216:;
  446.     base[4]= base[0];
  447.     base[5]= base[3];
  448.     vs_top=(vs_base=base+4)+2;
  449.     L54();
  450.     return;
  451. T215:;
  452.     if((V4!= VV[106])
  453.     && (V4!= VV[107])
  454.     && (V4!= VV[55]))goto T222;
  455.     base[5]= base[0];
  456.     vs_top=(vs_base=base+5)+1;
  457.     Ltype_of();
  458.     vs_top=sup;
  459.     base[4]= vs_base[0];
  460.     if(base[4]==VV[55]){
  461.     goto T223;}
  462.     base[4]= Cnil;
  463.     vs_top=(vs_base=base+4)+1;
  464.     return;
  465. T223:;
  466.     base[4]= base[0];
  467.     base[5]= base[3];
  468.     vs_top=(vs_base=base+4)+2;
  469.     L54();
  470.     return;
  471. T222:;
  472.     if((V4!= VV[86]))goto T229;
  473.     base[4]= base[0];
  474.     vs_top=(vs_base=base+4)+1;
  475.     Lcomplexp();
  476.     vs_top=sup;
  477.     if((vs_base[0])!=Cnil){
  478.     goto T230;}
  479.     base[4]= Cnil;
  480.     vs_top=(vs_base=base+4)+1;
  481.     return;
  482. T230:;
  483.     base[5]= base[0];
  484.     vs_top=(vs_base=base+5)+1;
  485.     Lrealpart();
  486.     vs_top=sup;
  487.     base[4]= vs_base[0];
  488.     base[5]= car(base[3]);
  489.     vs_top=(vs_base=base+4)+2;
  490.     L49();
  491.     vs_top=sup;
  492.     if((vs_base[0])!=Cnil){
  493.     goto T233;}
  494.     base[4]= Cnil;
  495.     vs_top=(vs_base=base+4)+1;
  496.     return;
  497. T233:;
  498.     base[4]= base[0];
  499.     vs_top=(vs_base=base+4)+1;
  500.     Limagpart();
  501.     vs_top=sup;
  502.     base[0]= vs_base[0];
  503.     base[1]= car(base[3]);
  504.     goto TTL;
  505. T229:;
  506.     if((V4!= VV[66]))goto T242;
  507.     if(!(type_of(base[0])==t_cons||base[0]==Cnil)){
  508.     goto T243;}
  509.     base[5]= Ct;
  510.     vs_top=(vs_base=base+5)+1;
  511.     return;
  512. T243:;
  513.     base[5]= (type_of(base[0])==t_vector||
  514. type_of(base[0])==t_string||
  515. type_of(base[0])==t_bitvector?Ct:Cnil);
  516.     vs_top=(vs_base=base+5)+1;
  517.     return;
  518. T242:;
  519.     if((V4!= VV[38]))goto T245;
  520.     if(type_of(base[0])==t_string){
  521.     goto T246;}
  522.     base[4]= Cnil;
  523.     vs_top=(vs_base=base+4)+1;
  524.     return;
  525. T246:;
  526.     if(!(base[3]==Cnil)){
  527.     goto T248;}
  528.     base[5]= Ct;
  529.     vs_top=(vs_base=base+5)+1;
  530.     return;
  531. T248:;
  532.     base[6]= base[0];
  533.     base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
  534.     base[6]= base[3];
  535.     vs_top=(vs_base=base+5)+2;
  536.     L55();
  537.     return;
  538. T245:;
  539.     if((V4!= VV[41]))goto T253;
  540.     base[4]= base[0];
  541.     vs_top=(vs_base=base+4)+1;
  542.     Lbit_vector_p();
  543.     vs_top=sup;
  544.     if((vs_base[0])!=Cnil){
  545.     goto T254;}
  546.     base[4]= Cnil;
  547.     vs_top=(vs_base=base+4)+1;
  548.     return;
  549. T254:;
  550.     if(!(base[3]==Cnil)){
  551.     goto T257;}
  552.     base[5]= Ct;
  553.     vs_top=(vs_base=base+5)+1;
  554.     return;
  555. T257:;
  556.     base[6]= base[0];
  557.     base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
  558.     base[6]= base[3];
  559.     vs_top=(vs_base=base+5)+2;
  560.     L55();
  561.     return;
  562. T253:;
  563.     if((V4!= VV[46]))goto T262;
  564.     base[4]= base[0];
  565.     vs_top=(vs_base=base+4)+1;
  566.     Lsimple_string_p();
  567.     vs_top=sup;
  568.     if((vs_base[0])!=Cnil){
  569.     goto T263;}
  570.     base[4]= Cnil;
  571.     vs_top=(vs_base=base+4)+1;
  572.     return;
  573. T263:;
  574.     if(!(base[3]==Cnil)){
  575.     goto T266;}
  576.     base[5]= Ct;
  577.     vs_top=(vs_base=base+5)+1;
  578.     return;
  579. T266:;
  580.     base[6]= base[0];
  581.     base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
  582.     base[6]= base[3];
  583.     vs_top=(vs_base=base+5)+2;
  584.     L55();
  585.     return;
  586. T262:;
  587.     if((V4!= VV[48]))goto T271;
  588.     base[4]= base[0];
  589.     vs_top=(vs_base=base+4)+1;
  590.     Lsimple_bit_vector_p();
  591.     vs_top=sup;
  592.     if((vs_base[0])!=Cnil){
  593.     goto T272;}
  594.     base[4]= Cnil;
  595.     vs_top=(vs_base=base+4)+1;
  596.     return;
  597. T272:;
  598.     if(!(base[3]==Cnil)){
  599.     goto T275;}
  600.     base[5]= Ct;
  601.     vs_top=(vs_base=base+5)+1;
  602.     return;
  603. T275:;
  604.     base[6]= base[0];
  605.     base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
  606.     base[6]= base[3];
  607.     vs_top=(vs_base=base+5)+2;
  608.     L55();
  609.     return;
  610. T271:;
  611.     if((V4!= VV[43]))goto T280;
  612.     base[4]= base[0];
  613.     vs_top=(vs_base=base+4)+1;
  614.     Lsimple_vector_p();
  615.     vs_top=sup;
  616.     if((vs_base[0])!=Cnil){
  617.     goto T281;}
  618.     base[4]= Cnil;
  619.     vs_top=(vs_base=base+4)+1;
  620.     return;
  621. T281:;
  622.     if(!(base[3]==Cnil)){
  623.     goto T284;}
  624.     base[5]= Ct;
  625.     vs_top=(vs_base=base+5)+1;
  626.     return;
  627. T284:;
  628.     base[6]= base[0];
  629.     base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
  630.     base[6]= base[3];
  631.     vs_top=(vs_base=base+5)+2;
  632.     L55();
  633.     return;
  634. T280:;
  635.     if((V4!= VV[45]))goto T289;
  636.     base[4]= base[0];
  637.     vs_top=(vs_base=base+4)+1;
  638.     L47();
  639.     vs_top=sup;
  640.     if((vs_base[0])!=Cnil){
  641.     goto T290;}
  642.     base[4]= Cnil;
  643.     vs_top=(vs_base=base+4)+1;
  644.     return;
  645. T290:;
  646.     if(!(endp(base[3]))){
  647.     goto T295;}
  648.     goto T293;
  649. T295:;
  650.     if(!(car(base[3])==VV[29])){
  651.     goto T297;}
  652.     goto T293;
  653. T297:;
  654.     base[6]= base[0];
  655.     vs_top=(vs_base=base+6)+1;
  656.     Larray_element_type();
  657.     vs_top=sup;
  658.     base[5]= vs_base[0];
  659.     if(equal(base[5],car(base[3]))){
  660.     goto T293;}
  661.     base[4]= Cnil;
  662.     vs_top=(vs_base=base+4)+1;
  663.     return;
  664. T293:;
  665.     if(!(endp(cdr(base[3])))){
  666.     goto T301;}
  667.     base[5]= Ct;
  668.     vs_top=(vs_base=base+5)+1;
  669.     return;
  670. T301:;
  671.     if(!(cadr(base[3])==VV[29])){
  672.     goto T303;}
  673.     base[5]= Ct;
  674.     vs_top=(vs_base=base+5)+1;
  675.     return;
  676. T303:;
  677.     base[6]= base[0];
  678.     base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
  679.     base[6]= cadr(base[3]);
  680.     vs_top=(vs_base=base+5)+2;
  681.     L55();
  682.     return;
  683. T289:;
  684.     if((V4!= VV[37]))goto T308;
  685.     if(type_of(base[0])==t_array||
  686. type_of(base[0])==t_vector||
  687. type_of(base[0])==t_string||
  688. type_of(base[0])==t_bitvector){
  689.     goto T309;}
  690.     base[4]= Cnil;
  691.     vs_top=(vs_base=base+4)+1;
  692.     return;
  693. T309:;
  694.     if(!(endp(base[3]))){
  695.     goto T313;}
  696.     goto T311;
  697. T313:;
  698.     if(!(car(base[3])==VV[29])){
  699.     goto T315;}
  700.     goto T311;
  701. T315:;
  702.     base[6]= base[0];
  703.     vs_top=(vs_base=base+6)+1;
  704.     Larray_element_type();
  705.     vs_top=sup;
  706.     base[5]= vs_base[0];
  707.     if(equal(base[5],car(base[3]))){
  708.     goto T311;}
  709.     base[4]= Cnil;
  710.     vs_top=(vs_base=base+4)+1;
  711.     return;
  712. T311:;
  713.     if(!(endp(cdr(base[3])))){
  714.     goto T319;}
  715.     base[5]= Ct;
  716.     vs_top=(vs_base=base+5)+1;
  717.     return;
  718. T319:;
  719.     if(!(cadr(base[3])==VV[29])){
  720.     goto T321;}
  721.     base[5]= Ct;
  722.     vs_top=(vs_base=base+5)+1;
  723.     return;
  724. T321:;
  725.     base[6]= base[0];
  726.     base[5]= simple_symlispcall_no_event(VV[108],base+6,1);
  727.     base[6]= cadr(base[3]);
  728.     vs_top=(vs_base=base+5)+2;
  729.     L55();
  730.     return;
  731. T308:;
  732.     if((get(base[2],VV[56],Cnil))==Cnil){
  733.     goto T327;}
  734.     base[4]= base[0];
  735.     vs_top=(vs_base=base+4)+1;
  736.     siLstructurep();
  737.     vs_top=sup;
  738.     if((vs_base[0])==Cnil){
  739.     goto T330;}
  740.     base[5]= base[0];
  741.     vs_top=(vs_base=base+5)+1;
  742.     siLstructure_name();
  743.     vs_top=sup;
  744.     base[4]= vs_base[0];
  745. T336:;
  746.     if(!(base[2]==base[4])){
  747.     goto T337;}
  748.     base[5]= Ct;
  749.     vs_top=(vs_base=base+5)+1;
  750.     return;
  751. T337:;
  752.     if((get(base[4],VV[57],Cnil))!=Cnil){
  753.     goto T341;}
  754.     base[5]= Cnil;
  755.     vs_top=(vs_base=base+5)+1;
  756.     return;
  757. T341:;
  758.     base[4]= get(base[4],VV[57],Cnil);
  759.     goto T336;
  760. T330:;
  761.     base[4]= Cnil;
  762.     vs_top=(vs_base=base+4)+1;
  763.     return;
  764. T327:;
  765.     if((get(base[2],VV[19],Cnil))==Cnil){
  766.     goto T348;}
  767.     base[4]= get(base[2],VV[19],Cnil);
  768.     {object V6;
  769.     V6= base[3];
  770.      vs_top=base+5;
  771.      while(!endp(V6))
  772.      {vs_push(car(V6));V6=cdr(V6);}
  773.     vs_base=base+5;}
  774.     super_funcall_no_event(base[4]);
  775.     vs_top=sup;
  776.     base[1]= vs_base[0];
  777.     goto TTL;
  778. T348:;
  779.     base[4]= Cnil;
  780.     vs_top=(vs_base=base+4)+1;
  781.     return;}
  782. }
  783. /*    function definition for NORMALIZE-TYPE    */
  784.  
  785. static L50()
  786. {    register object *base=vs_base;
  787.     register object *sup=base+VM6;
  788.     vs_reserve(VM6);
  789.     check_arg(1);
  790.     vs_top=sup;
  791. TTL:;
  792.     base[1]= Cnil;
  793.     base[2]= Cnil;
  794. T356:;
  795.     if(!(type_of(base[0])!=t_cons)){
  796.     goto T360;}
  797.     base[1]= base[0];
  798.     base[2]= Cnil;
  799.     goto T358;
  800. T360:;
  801.     base[1]= car(base[0]);
  802.     base[2]= cdr(base[0]);
  803. T358:;
  804.     if((get(base[1],VV[19],Cnil))==Cnil){
  805.     goto T369;}
  806.     base[3]= get(base[1],VV[19],Cnil);
  807.     {object V7;
  808.     V7= base[2];
  809.      vs_top=base+4;
  810.      while(!endp(V7))
  811.      {vs_push(car(V7));V7=cdr(V7);}
  812.     vs_base=base+4;}
  813.     super_funcall_no_event(base[3]);
  814.     vs_top=sup;
  815.     base[0]= vs_base[0];
  816.     goto T357;
  817. T369:;
  818.     if(!(type_of(base[0])!=t_cons)){
  819.     goto T375;}
  820.     base[3]= make_cons(base[0],Cnil);
  821.     vs_top=(vs_base=base+3)+1;
  822.     return;
  823. T375:;
  824.     vs_top=(vs_base=base+0)+1;
  825.     return;
  826. T357:;
  827.     goto T356;
  828. }
  829. /*    function definition for KNOWN-TYPE-P    */
  830.  
  831. static L51()
  832. {    register object *base=vs_base;
  833.     register object *sup=base+VM7;
  834.     vs_reserve(VM7);
  835.     check_arg(1);
  836.     vs_top=sup;
  837. TTL:;
  838.     if(!(type_of(base[0])==t_cons)){
  839.     goto T378;}
  840.     base[0]= car(base[0]);
  841. T378:;
  842.     {object x= base[0],V8= VV[58];
  843.     while(!endp(V8))
  844.     if(eql(x,V8->c.c_car)){
  845.     goto T382;
  846.     }else V8=V8->c.c_cdr;}
  847.     if((get(base[0],VV[56],Cnil))==Cnil){
  848.     goto T383;}
  849. T382:;
  850.     base[1]= Ct;
  851.     vs_top=(vs_base=base+1)+1;
  852.     return;
  853. T383:;
  854.     base[1]= Cnil;
  855.     vs_top=(vs_base=base+1)+1;
  856.     return;
  857. }
  858. /*    function definition for SUBTYPEP    */
  859.  
  860. static L52()
  861. {    register object *base=vs_base;
  862.     register object *sup=base+VM8;
  863.     vs_reserve(VM8);
  864.     check_arg(2);
  865.     vs_top=sup;
  866. TTL:;
  867.     base[2]= Cnil;
  868.     base[3]= Cnil;
  869.     base[4]= Cnil;
  870.     base[5]= Cnil;
  871.     base[6]= Cnil;
  872.     base[7]= Cnil;
  873.     base[8]= base[0];
  874.     vs_top=(vs_base=base+8)+1;
  875.     L50();
  876.     vs_top=sup;
  877.     base[0]= vs_base[0];
  878.     base[8]= base[1];
  879.     vs_top=(vs_base=base+8)+1;
  880.     L50();
  881.     vs_top=sup;
  882.     base[1]= vs_base[0];
  883.     if(!(equal(base[0],base[1]))){
  884.     goto T393;}
  885.     base[8]= Ct;
  886.     base[9]= Ct;
  887.     vs_top=(vs_base=base+8)+2;
  888.     return;
  889. T393:;
  890.     base[2]= car(base[0]);
  891.     base[3]= car(base[1]);
  892.     base[4]= cdr(base[0]);
  893.     base[5]= cdr(base[1]);
  894.     if(!(base[2]==VV[59])){
  895.     goto T408;}
  896.     base[8]= base[4];
  897.     base[9]= car(base[8]);
  898. T413:;
  899.     if(!(endp(base[8]))){
  900.     goto T414;}
  901.     goto T410;
  902. T414:;
  903.     base[10]= base[9];
  904.     base[11]= base[1];
  905.     vs_top=(vs_base=base+10)+2;
  906.     L49();
  907.     vs_top=sup;
  908.     if((vs_base[0])!=Cnil){
  909.     goto T418;}
  910.     base[10]= Cnil;
  911.     base[11]= Ct;
  912.     vs_top=(vs_base=base+10)+2;
  913.     return;
  914. T418:;
  915.     base[8]= cdr(base[8]);
  916.     base[9]= car(base[8]);
  917.     goto T413;
  918. T410:;
  919.     base[8]= Ct;
  920.     base[9]= Ct;
  921.     vs_top=(vs_base=base+8)+2;
  922.     return;
  923. T408:;
  924.     if(!(base[2]==VV[60])){
  925.     goto T433;}
  926.     base[8]= base[4];
  927.     base[9]= car(base[8]);
  928. T438:;
  929.     if(!(endp(base[8]))){
  930.     goto T439;}
  931.     goto T435;
  932. T439:;
  933.     base[12]= base[9];
  934.     base[13]= base[1];
  935.     vs_top=(vs_base=base+12)+2;
  936.     L52();
  937.     if(vs_base>=vs_top){vs_top=sup;goto T447;}
  938.     base[10]= vs_base[0];
  939.     vs_base++;
  940.     if(vs_base>=vs_top){vs_top=sup;goto T448;}
  941.     base[11]= vs_base[0];
  942.     vs_top=sup;
  943.     goto T449;
  944. T447:;
  945.     base[10]= Cnil;
  946. T448:;
  947.     base[11]= Cnil;
  948. T449:;
  949.     if((base[10])!=Cnil){
  950.     goto T443;}
  951.     base[12]= base[10];
  952.     base[13]= base[11];
  953.     vs_top=(vs_base=base+12)+2;
  954.     return;
  955. T443:;
  956.     base[8]= cdr(base[8]);
  957.     base[9]= car(base[8]);
  958.     goto T438;
  959. T435:;
  960.     base[8]= Ct;
  961.     base[9]= Ct;
  962.     vs_top=(vs_base=base+8)+2;
  963.     return;
  964. T433:;
  965.     if(!(base[2]==VV[61])){
  966.     goto T462;}
  967.     base[8]= base[4];
  968.     base[9]= car(base[8]);
  969. T467:;
  970.     if(!(endp(base[8]))){
  971.     goto T468;}
  972.     goto T464;
  973. T468:;
  974.     base[11]= base[9];
  975.     base[12]= base[1];
  976.     vs_top=(vs_base=base+11)+2;
  977.     L52();
  978.     vs_top=sup;
  979.     base[10]= vs_base[0];
  980.     if((base[10])==Cnil){
  981.     goto T472;}
  982.     base[11]= Ct;
  983.     base[12]= Ct;
  984.     vs_top=(vs_base=base+11)+2;
  985.     return;
  986. T472:;
  987.     base[8]= cdr(base[8]);
  988.     base[9]= car(base[8]);
  989.     goto T467;
  990. T464:;
  991.     base[8]= Cnil;
  992.     base[9]= Cnil;
  993.     vs_top=(vs_base=base+8)+2;
  994.     return;
  995. T462:;
  996.     if(!(base[2]==VV[62])){
  997.     goto T406;}
  998.     base[10]= car(base[4]);
  999.     base[11]= base[1];
  1000.     vs_top=(vs_base=base+10)+2;
  1001.     L52();
  1002.     if(vs_base>=vs_top){vs_top=sup;goto T492;}
  1003.     base[8]= vs_base[0];
  1004.     vs_base++;
  1005.     if(vs_base>=vs_top){vs_top=sup;goto T493;}
  1006.     base[9]= vs_base[0];
  1007.     vs_top=sup;
  1008.     goto T494;
  1009. T492:;
  1010.     base[8]= Cnil;
  1011. T493:;
  1012.     base[9]= Cnil;
  1013. T494:;
  1014.     base[10]= ((base[8])==Cnil?Ct:Cnil);
  1015.     base[11]= base[9];
  1016.     vs_top=(vs_base=base+10)+2;
  1017.     return;
  1018. T406:;
  1019.     if(!(base[3]==VV[59])){
  1020.     goto T499;}
  1021.     base[8]= Cnil;
  1022.     base[9]= Cnil;
  1023.     vs_top=(vs_base=base+8)+2;
  1024.     return;
  1025. T499:;
  1026.     if(!(base[3]==VV[60])){
  1027.     goto T504;}
  1028.     base[8]= base[5];
  1029.     base[9]= car(base[8]);
  1030. T509:;
  1031.     if(!(endp(base[8]))){
  1032.     goto T510;}
  1033.     goto T506;
  1034. T510:;
  1035.     base[11]= base[0];
  1036.     base[12]= base[9];
  1037.     vs_top=(vs_base=base+11)+2;
  1038.     L52();
  1039.     vs_top=sup;
  1040.     base[10]= vs_base[0];
  1041.     if((base[10])==Cnil){
  1042.     goto T514;}
  1043.     base[11]= Ct;
  1044.     base[12]= Ct;
  1045.     vs_top=(vs_base=base+11)+2;
  1046.     return;
  1047. T514:;
  1048.     base[8]= cdr(base[8]);
  1049.     base[9]= car(base[8]);
  1050.     goto T509;
  1051. T506:;
  1052.     base[8]= Cnil;
  1053.     base[9]= Cnil;
  1054.     vs_top=(vs_base=base+8)+2;
  1055.     return;
  1056. T504:;
  1057.     if(!(base[3]==VV[61])){
  1058.     goto T530;}
  1059.     base[8]= base[5];
  1060.     base[9]= car(base[8]);
  1061. T535:;
  1062.     if(!(endp(base[8]))){
  1063.     goto T536;}
  1064.     goto T532;
  1065. T536:;
  1066.     base[12]= base[0];
  1067.     base[13]= base[9];
  1068.     vs_top=(vs_base=base+12)+2;
  1069.     L52();
  1070.     if(vs_base>=vs_top){vs_top=sup;goto T544;}
  1071.     base[10]= vs_base[0];
  1072.     vs_base++;
  1073.     if(vs_base>=vs_top){vs_top=sup;goto T545;}
  1074.     base[11]= vs_base[0];
  1075.     vs_top=sup;
  1076.     goto T546;
  1077. T544:;
  1078.     base[10]= Cnil;
  1079. T545:;
  1080.     base[11]= Cnil;
  1081. T546:;
  1082.     if((base[10])!=Cnil){
  1083.     goto T540;}
  1084.     base[12]= base[10];
  1085.     base[13]= base[11];
  1086.     vs_top=(vs_base=base+12)+2;
  1087.     return;
  1088. T540:;
  1089.     base[8]= cdr(base[8]);
  1090.     base[9]= car(base[8]);
  1091.     goto T535;
  1092. T532:;
  1093.     base[8]= Cnil;
  1094.     base[9]= Cnil;
  1095.     vs_top=(vs_base=base+8)+2;
  1096.     return;
  1097. T530:;
  1098.     if(!(base[3]==VV[62])){
  1099.     goto T497;}
  1100.     base[10]= base[0];
  1101.     base[11]= car(base[5]);
  1102.     symlispcall_no_event(VV[109],base+10,2);
  1103.     if(vs_base>=vs_top){vs_top=sup;goto T563;}
  1104.     base[8]= vs_base[0];
  1105.     vs_base++;
  1106.     if(vs_base>=vs_top){vs_top=sup;goto T564;}
  1107.     base[9]= vs_base[0];
  1108.     vs_top=sup;
  1109.     goto T565;
  1110. T563:;
  1111.     base[8]= Cnil;
  1112. T564:;
  1113.     base[9]= Cnil;
  1114. T565:;
  1115.     base[10]= ((base[8])==Cnil?Ct:Cnil);
  1116.     base[11]= base[9];
  1117.     vs_top=(vs_base=base+10)+2;
  1118.     return;
  1119. T497:;
  1120.     base[8]= base[0];
  1121.     vs_top=(vs_base=base+8)+1;
  1122.     L51();
  1123.     vs_top=sup;
  1124.     base[6]= vs_base[0];
  1125.     base[8]= base[1];
  1126.     vs_top=(vs_base=base+8)+1;
  1127.     L51();
  1128.     vs_top=sup;
  1129.     base[7]= vs_base[0];
  1130.     if(base[2]==Cnil){
  1131.     goto T574;}
  1132.     if(base[3]==Ct){
  1133.     goto T574;}
  1134.     if(!(base[3]==VV[63])){
  1135.     goto T575;}
  1136. T574:;
  1137.     base[8]= Ct;
  1138.     base[9]= Ct;
  1139.     vs_top=(vs_base=base+8)+2;
  1140.     return;
  1141. T575:;
  1142.     if(!(base[3]==Cnil)){
  1143.     goto T584;}
  1144.     base[8]= Cnil;
  1145.     base[9]= base[6];
  1146.     vs_top=(vs_base=base+8)+2;
  1147.     return;
  1148. T584:;
  1149.     if(!(base[2]==Ct)){
  1150.     goto T589;}
  1151.     base[8]= Cnil;
  1152.     base[9]= base[7];
  1153.     vs_top=(vs_base=base+8)+2;
  1154.     return;
  1155. T589:;
  1156.     if(!(base[2]==VV[63])){
  1157.     goto T594;}
  1158.     base[8]= Cnil;
  1159.     base[9]= base[7];
  1160.     vs_top=(vs_base=base+8)+2;
  1161.     return;
  1162. T594:;
  1163.     if(!(base[3]==VV[64])){
  1164.     goto T599;}
  1165.     {object x= base[2],V9= VV[65];
  1166.     while(!endp(V9))
  1167.     if(eql(x,V9->c.c_car)){
  1168.     goto T603;
  1169.     }else V9=V9->c.c_cdr;
  1170.     goto T602;}
  1171. T603:;
  1172.     base[8]= Ct;
  1173.     base[9]= Ct;
  1174.     vs_top=(vs_base=base+8)+2;
  1175.     return;
  1176. T602:;
  1177.     base[8]= Cnil;
  1178.     base[9]= base[6];
  1179.     vs_top=(vs_base=base+8)+2;
  1180.     return;
  1181. T599:;
  1182.     if(!(base[3]==VV[66])){
  1183.     goto T609;}
  1184.     {object x= base[2],V10= VV[67];
  1185.     while(!endp(V10))
  1186.     if(eql(x,V10->c.c_car)){
  1187.     goto T613;
  1188.     }else V10=V10->c.c_cdr;
  1189.     goto T612;}
  1190. T613:;
  1191.     base[8]= Ct;
  1192.     base[9]= Ct;
  1193.     vs_top=(vs_base=base+8)+2;
  1194.     return;
  1195. T612:;
  1196.     if(!(base[2]==VV[37])){
  1197.     goto T617;}
  1198.     if((cdr(base[4]))==Cnil){
  1199.     goto T620;}
  1200.     if(!(type_of(cadr(base[4]))==t_cons)){
  1201.     goto T620;}
  1202.     if((cdadr(base[4]))!=Cnil){
  1203.     goto T620;}
  1204.     base[8]= Ct;
  1205.     base[9]= Ct;
  1206.     vs_top=(vs_base=base+8)+2;
  1207.     return;
  1208. T620:;
  1209.     base[8]= Cnil;
  1210.     base[9]= Ct;
  1211.     vs_top=(vs_base=base+8)+2;
  1212.     return;
  1213. T617:;
  1214.     base[8]= Cnil;
  1215.     base[9]= base[6];
  1216.     vs_top=(vs_base=base+8)+2;
  1217.     return;
  1218. T609:;
  1219.     if(!(base[2]==VV[64])){
  1220.     goto T633;}
  1221.     base[8]= Cnil;
  1222.     base[9]= base[7];
  1223.     vs_top=(vs_base=base+8)+2;
  1224.     return;
  1225. T633:;
  1226.     if(!(base[2]==VV[66])){
  1227.     goto T638;}
  1228.     base[8]= Cnil;
  1229.     base[9]= base[7];
  1230.     vs_top=(vs_base=base+8)+2;
  1231.     return;
  1232. T638:;
  1233.     if(!(base[3]==VV[68])){
  1234.     goto T643;}
  1235.     {object x= base[2],V11= VV[69];
  1236.     while(!endp(V11))
  1237.     if(eql(x,V11->c.c_car)){
  1238.     goto T647;
  1239.     }else V11=V11->c.c_cdr;
  1240.     goto T646;}
  1241. T647:;
  1242.     base[8]= Cnil;
  1243.     base[9]= Ct;
  1244.     vs_top=(vs_base=base+8)+2;
  1245.     return;
  1246. T646:;
  1247.     if((base[6])==Cnil){
  1248.     goto T651;}
  1249.     base[8]= Ct;
  1250.     base[9]= Ct;
  1251.     vs_top=(vs_base=base+8)+2;
  1252.     return;
  1253. T651:;
  1254.     base[8]= Cnil;
  1255.     base[9]= Cnil;
  1256.     vs_top=(vs_base=base+8)+2;
  1257.     return;
  1258. T643:;
  1259.     if(!(base[2]==VV[68])){
  1260.     goto T658;}
  1261.     base[8]= Cnil;
  1262.     base[9]= base[7];
  1263.     vs_top=(vs_base=base+8)+2;
  1264.     return;
  1265. T658:;
  1266.     if(!(base[3]==VV[70])){
  1267.     goto T663;}
  1268.     {object x= base[2],V12= VV[71];
  1269.     while(!endp(V12))
  1270.     if(eql(x,V12->c.c_car)){
  1271.     goto T667;
  1272.     }else V12=V12->c.c_cdr;
  1273.     goto T666;}
  1274. T667:;
  1275.     base[8]= Ct;
  1276.     base[9]= Ct;
  1277.     vs_top=(vs_base=base+8)+2;
  1278.     return;
  1279. T666:;
  1280.     base[8]= Cnil;
  1281.     base[9]= base[6];
  1282.     vs_top=(vs_base=base+8)+2;
  1283.     return;
  1284. T663:;
  1285.     if(!(base[3]==VV[72])){
  1286.     goto T673;}
  1287.     if(!(base[2]==VV[72])){
  1288.     goto T676;}
  1289.     base[8]= Ct;
  1290.     base[9]= Ct;
  1291.     vs_top=(vs_base=base+8)+2;
  1292.     return;
  1293. T676:;
  1294.     base[8]= Cnil;
  1295.     base[9]= base[6];
  1296.     vs_top=(vs_base=base+8)+2;
  1297.     return;
  1298. T673:;
  1299.     if(!(base[3]==VV[73])){
  1300.     goto T683;}
  1301.     if(!(base[2]==VV[73])){
  1302.     goto T686;}
  1303.     base[8]= Ct;
  1304.     base[9]= Ct;
  1305.     vs_top=(vs_base=base+8)+2;
  1306.     return;
  1307. T686:;
  1308.     base[8]= Cnil;
  1309.     base[9]= base[6];
  1310.     vs_top=(vs_base=base+8)+2;
  1311.     return;
  1312. T683:;
  1313.     if(!(base[3]==VV[74])){
  1314.     goto T693;}
  1315.     {object x= base[2],V13= VV[75];
  1316.     while(!endp(V13))
  1317.     if(eql(x,V13->c.c_car)){
  1318.     goto T697;
  1319.     }else V13=V13->c.c_cdr;
  1320.     goto T696;}
  1321. T697:;
  1322.     base[8]= Ct;
  1323.     base[9]= Ct;
  1324.     vs_top=(vs_base=base+8)+2;
  1325.     return;
  1326. T696:;
  1327.     base[8]= Cnil;
  1328.     base[9]= base[6];
  1329.     vs_top=(vs_base=base+8)+2;
  1330.     return;
  1331. T693:;
  1332.     if(!(base[2]==VV[74])){
  1333.     goto T703;}
  1334.     base[8]= Cnil;
  1335.     base[9]= base[7];
  1336.     vs_top=(vs_base=base+8)+2;
  1337.     return;
  1338. T703:;
  1339.     if(!(base[3]==VV[76])){
  1340.     goto T708;}
  1341.     if(base[2]==VV[76]){
  1342.     goto T710;}
  1343.     if((get(base[2],VV[56],Cnil))==Cnil){
  1344.     goto T711;}
  1345. T710:;
  1346.     base[8]= Ct;
  1347.     base[9]= Ct;
  1348.     vs_top=(vs_base=base+8)+2;
  1349.     return;
  1350. T711:;
  1351.     base[8]= Cnil;
  1352.     base[9]= base[6];
  1353.     vs_top=(vs_base=base+8)+2;
  1354.     return;
  1355. T708:;
  1356.     if(!(base[2]==VV[76])){
  1357.     goto T720;}
  1358.     base[8]= Cnil;
  1359.     base[9]= base[7];
  1360.     vs_top=(vs_base=base+8)+2;
  1361.     return;
  1362. T720:;
  1363.     if((get(base[2],VV[56],Cnil))==Cnil){
  1364.     goto T725;}
  1365.     if((get(base[3],VV[56],Cnil))==Cnil){
  1366.     goto T728;}
  1367.     base[8]= base[2];
  1368. T731:;
  1369.     if((base[8])!=Cnil){
  1370.     goto T732;}
  1371.     base[10]= Cnil;
  1372.     base[11]= Ct;
  1373.     vs_top=(vs_base=base+10)+2;
  1374.     return;
  1375. T732:;
  1376.     if(!(base[8]==base[3])){
  1377.     goto T738;}
  1378.     base[10]= Ct;
  1379.     base[11]= Ct;
  1380.     vs_top=(vs_base=base+10)+2;
  1381.     return;
  1382. T738:;
  1383.     base[8]= get(base[8],VV[57],Cnil);
  1384.     goto T731;
  1385. T728:;
  1386.     base[8]= Cnil;
  1387.     base[9]= base[7];
  1388.     vs_top=(vs_base=base+8)+2;
  1389.     return;
  1390. T725:;
  1391.     if((get(base[3],VV[56],Cnil))==Cnil){
  1392.     goto T749;}
  1393.     base[8]= Cnil;
  1394.     base[9]= base[6];
  1395.     vs_top=(vs_base=base+8)+2;
  1396.     return;
  1397. T749:;
  1398.     {object V14= base[2];
  1399.     if((V14!= VV[52]))goto T753;
  1400.     {object V15= base[3];
  1401.     if((V15!= VV[52]))goto T754;
  1402.     base[8]= Ct;
  1403.     base[9]= Ct;
  1404.     vs_top=(vs_base=base+8)+2;
  1405.     return;
  1406. T754:;
  1407.     if((V15!= VV[16])
  1408.     && (V15!= VV[82]))goto T757;
  1409.     base[8]= VV[77];
  1410.     base[9]= base[5];
  1411.     vs_top=(vs_base=base+8)+2;
  1412.     L53();
  1413.     vs_top=sup;
  1414.     if((vs_base[0])==Cnil){
  1415.     goto T759;}
  1416.     base[8]= Ct;
  1417.     base[9]= Ct;
  1418.     vs_top=(vs_base=base+8)+2;
  1419.     return;
  1420. T759:;
  1421.     base[8]= Cnil;
  1422.     base[9]= Ct;
  1423.     vs_top=(vs_base=base+8)+2;
  1424.     return;
  1425. T757:;
  1426.     base[8]= Cnil;
  1427.     base[9]= base[7];
  1428.     vs_top=(vs_base=base+8)+2;
  1429.     return;}
  1430. T753:;
  1431.     if((V14!= VV[53]))goto T769;
  1432.     {object V16= base[3];
  1433.     if((V16!= VV[53]))goto T770;
  1434.     base[8]= Ct;
  1435.     base[9]= Ct;
  1436.     vs_top=(vs_base=base+8)+2;
  1437.     return;
  1438. T770:;
  1439.     if((V16!= VV[82]))goto T773;
  1440.     base[8]= VV[78];
  1441.     base[9]= base[5];
  1442.     vs_top=(vs_base=base+8)+2;
  1443.     L53();
  1444.     vs_top=sup;
  1445.     if((vs_base[0])==Cnil){
  1446.     goto T775;}
  1447.     base[8]= Ct;
  1448.     base[9]= Ct;
  1449.     vs_top=(vs_base=base+8)+2;
  1450.     return;
  1451. T775:;
  1452.     base[8]= Cnil;
  1453.     base[9]= Ct;
  1454.     vs_top=(vs_base=base+8)+2;
  1455.     return;
  1456. T773:;
  1457.     base[8]= Cnil;
  1458.     base[9]= base[7];
  1459.     vs_top=(vs_base=base+8)+2;
  1460.     return;}
  1461. T769:;
  1462.     if((V14!= VV[104]))goto T785;
  1463.     {object x= base[3],V17= VV[79];
  1464.     while(!endp(V17))
  1465.     if(eql(x,V17->c.c_car)){
  1466.     goto T788;
  1467.     }else V17=V17->c.c_cdr;
  1468.     goto T787;}
  1469. T788:;
  1470.     base[8]= Ct;
  1471.     base[9]= Ct;
  1472.     vs_top=(vs_base=base+8)+2;
  1473.     return;
  1474. T787:;
  1475.     base[8]= Cnil;
  1476.     base[9]= base[7];
  1477.     vs_top=(vs_base=base+8)+2;
  1478.     return;
  1479. T785:;
  1480.     if((V14!= VV[104]))goto T793;
  1481.     {object x= base[3],V18= VV[80];
  1482.     while(!endp(V18))
  1483.     if(eql(x,V18->c.c_car)){
  1484.     goto T796;
  1485.     }else V18=V18->c.c_cdr;
  1486.     goto T795;}
  1487. T796:;
  1488.     base[8]= Ct;
  1489.     base[9]= Ct;
  1490.     vs_top=(vs_base=base+8)+2;
  1491.     return;
  1492. T795:;
  1493.     base[8]= Cnil;
  1494.     base[9]= base[7];
  1495.     vs_top=(vs_base=base+8)+2;
  1496.     return;
  1497. T793:;
  1498.     if((V14!= VV[16]))goto T801;
  1499.     {object x= base[3],V19= VV[81];
  1500.     while(!endp(V19))
  1501.     if(eql(x,V19->c.c_car)){
  1502.     goto T804;
  1503.     }else V19=V19->c.c_cdr;
  1504.     goto T803;}
  1505. T804:;
  1506.     base[9]= base[4];
  1507.     base[10]= base[5];
  1508.     vs_top=(vs_base=base+9)+2;
  1509.     L53();
  1510.     vs_top=sup;
  1511.     base[8]= vs_base[0];
  1512.     base[9]= Ct;
  1513.     vs_top=(vs_base=base+8)+2;
  1514.     return;
  1515. T803:;
  1516.     base[8]= Cnil;
  1517.     base[9]= base[7];
  1518.     vs_top=(vs_base=base+8)+2;
  1519.     return;
  1520. T801:;
  1521.     if((V14!= VV[82]))goto T811;
  1522.     {object x= base[3],V20= VV[82];
  1523.     while(!endp(V20))
  1524.     if(eql(x,V20->c.c_car)){
  1525.     goto T814;
  1526.     }else V20=V20->c.c_cdr;
  1527.     goto T813;}
  1528. T814:;
  1529.     base[9]= base[4];
  1530.     base[10]= base[5];
  1531.     vs_top=(vs_base=base+9)+2;
  1532.     L53();
  1533.     vs_top=sup;
  1534.     base[8]= vs_base[0];
  1535.     base[9]= Ct;
  1536.     vs_top=(vs_base=base+8)+2;
  1537.     return;
  1538. T813:;
  1539.     base[8]= Cnil;
  1540.     base[9]= base[7];
  1541.     vs_top=(vs_base=base+8)+2;
  1542.     return;
  1543. T811:;
  1544.     if((V14!= VV[83]))goto T821;
  1545.     if(!(base[3]==VV[83])){
  1546.     goto T823;}
  1547.     base[9]= base[4];
  1548.     base[10]= base[5];
  1549.     vs_top=(vs_base=base+9)+2;
  1550.     L53();
  1551.     vs_top=sup;
  1552.     base[8]= vs_base[0];
  1553.     base[9]= Ct;
  1554.     vs_top=(vs_base=base+8)+2;
  1555.     return;
  1556. T823:;
  1557.     base[8]= Cnil;
  1558.     base[9]= base[7];
  1559.     vs_top=(vs_base=base+8)+2;
  1560.     return;
  1561. T821:;
  1562.     if((V14!= VV[54]))goto T831;
  1563.     {object x= base[3],V21= VV[84];
  1564.     while(!endp(V21))
  1565.     if(eql(x,V21->c.c_car)){
  1566.     goto T834;
  1567.     }else V21=V21->c.c_cdr;
  1568.     goto T833;}
  1569. T834:;
  1570.     base[9]= base[4];
  1571.     base[10]= base[5];
  1572.     vs_top=(vs_base=base+9)+2;
  1573.     L53();
  1574.     vs_top=sup;
  1575.     base[8]= vs_base[0];
  1576.     base[9]= Ct;
  1577.     vs_top=(vs_base=base+8)+2;
  1578.     return;
  1579. T833:;
  1580.     base[8]= Cnil;
  1581.     base[9]= base[7];
  1582.     vs_top=(vs_base=base+8)+2;
  1583.     return;
  1584. T831:;
  1585.     if((V14!= VV[106])
  1586.     && (V14!= VV[107])
  1587.     && (V14!= VV[55]))goto T841;
  1588.     {object x= base[3],V22= VV[85];
  1589.     while(!endp(V22))
  1590.     if(eql(x,V22->c.c_car)){
  1591.     goto T844;
  1592.     }else V22=V22->c.c_cdr;
  1593.     goto T843;}
  1594. T844:;
  1595.     base[9]= base[4];
  1596.     base[10]= base[5];
  1597.     vs_top=(vs_base=base+9)+2;
  1598.     L53();
  1599.     vs_top=sup;
  1600.     base[8]= vs_base[0];
  1601.     base[9]= Ct;
  1602.     vs_top=(vs_base=base+8)+2;
  1603.     return;
  1604. T843:;
  1605.     base[8]= Cnil;
  1606.     base[9]= base[7];
  1607.     vs_top=(vs_base=base+8)+2;
  1608.     return;
  1609. T841:;
  1610.     if((V14!= VV[86]))goto T851;
  1611.     if(!(base[3]==VV[86])){
  1612.     goto T853;}
  1613.     base[10]= car(base[4]);
  1614.     base[11]= car(base[5]);
  1615.     vs_top=(vs_base=base+10)+2;
  1616.     L52();
  1617.     if(vs_base>=vs_top){vs_top=sup;goto T858;}
  1618.     base[8]= vs_base[0];
  1619.     vs_base++;
  1620.     if(vs_base>=vs_top){vs_top=sup;goto T859;}
  1621.     base[9]= vs_base[0];
  1622.     vs_top=sup;
  1623.     goto T860;
  1624. T858:;
  1625.     base[8]= Cnil;
  1626. T859:;
  1627.     base[9]= Cnil;
  1628. T860:;
  1629.     base[10]= base[8];
  1630.     base[11]= base[9];
  1631.     vs_top=(vs_base=base+10)+2;
  1632.     return;
  1633. T853:;
  1634.     base[8]= Cnil;
  1635.     base[9]= base[7];
  1636.     vs_top=(vs_base=base+8)+2;
  1637.     return;
  1638. T851:;
  1639.     if((V14!= VV[45]))goto T865;
  1640.     if(base[3]==VV[45]){
  1641.     goto T866;}
  1642.     if(!(base[3]==VV[37])){
  1643.     goto T867;}
  1644. T866:;
  1645.     if(endp(base[4])){
  1646.     goto T872;}
  1647.     if(!(car(base[4])==VV[29])){
  1648.     goto T873;}
  1649. T872:;
  1650.     if(endp(base[5])){
  1651.     goto T871;}
  1652.     if(car(base[5])==VV[29]){
  1653.     goto T871;}
  1654.     base[8]= Cnil;
  1655.     base[9]= Ct;
  1656.     vs_top=(vs_base=base+8)+2;
  1657.     return;
  1658. T873:;
  1659.     if(endp(base[5])){
  1660.     goto T871;}
  1661.     if(car(base[5])==VV[29]){
  1662.     goto T871;}
  1663.     if(equal(car(base[4]),car(base[5]))){
  1664.     goto T871;}
  1665.     base[8]= Cnil;
  1666.     base[9]= Ct;
  1667.     vs_top=(vs_base=base+8)+2;
  1668.     return;
  1669. T871:;
  1670.     if(endp(cdr(base[4]))){
  1671.     goto T892;}
  1672.     if(!(cadr(base[4])==VV[29])){
  1673.     goto T891;}
  1674. T892:;
  1675.     if(endp(cdr(base[5]))){
  1676.     goto T896;}
  1677.     if(!(cadr(base[5])==VV[29])){
  1678.     goto T897;}
  1679. T896:;
  1680.     base[8]= Ct;
  1681.     base[9]= Ct;
  1682.     vs_top=(vs_base=base+8)+2;
  1683.     return;
  1684. T897:;
  1685.     base[8]= Cnil;
  1686.     base[9]= Ct;
  1687.     vs_top=(vs_base=base+8)+2;
  1688.     return;
  1689. T891:;
  1690.     if(endp(cdr(base[5]))){
  1691.     goto T906;}
  1692.     if(!(cadr(base[5])==VV[29])){
  1693.     goto T905;}
  1694. T906:;
  1695.     base[8]= Ct;
  1696.     base[9]= Ct;
  1697.     vs_top=(vs_base=base+8)+2;
  1698.     return;
  1699. T905:;
  1700.     base[9]= cadr(base[4]);
  1701.     base[10]= cadr(base[5]);
  1702.     vs_top=(vs_base=base+9)+2;
  1703.     L55();
  1704.     vs_top=sup;
  1705.     base[8]= vs_base[0];
  1706.     base[9]= Ct;
  1707.     vs_top=(vs_base=base+8)+2;
  1708.     return;
  1709. T867:;
  1710.     base[8]= Cnil;
  1711.     base[9]= base[7];
  1712.     vs_top=(vs_base=base+8)+2;
  1713.     return;
  1714. T865:;
  1715.     if((V14!= VV[37]))goto T918;
  1716.     if(!(base[3]==VV[37])){
  1717.     goto T920;}
  1718.     if(endp(base[4])){
  1719.     goto T923;}
  1720.     if(!(car(base[4])==VV[29])){
  1721.     goto T924;}
  1722. T923:;
  1723.     if(endp(base[5])){
  1724.     goto T922;}
  1725.     if(car(base[5])==VV[29]){
  1726.     goto T922;}
  1727.     base[8]= Cnil;
  1728.     base[9]= Ct;
  1729.     vs_top=(vs_base=base+8)+2;
  1730.     return;
  1731. T924:;
  1732.     if(endp(base[5])){
  1733.     goto T922;}
  1734.     if(car(base[5])==VV[29]){
  1735.     goto T922;}
  1736.     if(equal(car(base[4]),car(base[5]))){
  1737.     goto T922;}
  1738.     base[8]= Cnil;
  1739.     base[9]= Ct;
  1740.     vs_top=(vs_base=base+8)+2;
  1741.     return;
  1742. T922:;
  1743.     if(endp(cdr(base[4]))){
  1744.     goto T943;}
  1745.     if(!(cadr(base[4])==VV[29])){
  1746.     goto T942;}
  1747. T943:;
  1748.     if(endp(cdr(base[5]))){
  1749.     goto T947;}
  1750.     if(!(cadr(base[5])==VV[29])){
  1751.     goto T948;}
  1752. T947:;
  1753.     base[8]= Ct;
  1754.     base[9]= Ct;
  1755.     vs_top=(vs_base=base+8)+2;
  1756.     return;
  1757. T948:;
  1758.     base[8]= Cnil;
  1759.     base[9]= Ct;
  1760.     vs_top=(vs_base=base+8)+2;
  1761.     return;
  1762. T942:;
  1763.     if(endp(cdr(base[5]))){
  1764.     goto T957;}
  1765.     if(!(cadr(base[5])==VV[29])){
  1766.     goto T956;}
  1767. T957:;
  1768.     base[8]= Ct;
  1769.     base[9]= Ct;
  1770.     vs_top=(vs_base=base+8)+2;
  1771.     return;
  1772. T956:;
  1773.     base[9]= cadr(base[4]);
  1774.     base[10]= cadr(base[5]);
  1775.     vs_top=(vs_base=base+9)+2;
  1776.     L55();
  1777.     vs_top=sup;
  1778.     base[8]= vs_base[0];
  1779.     base[9]= Ct;
  1780.     vs_top=(vs_base=base+8)+2;
  1781.     return;
  1782. T920:;
  1783.     base[8]= Cnil;
  1784.     base[9]= base[7];
  1785.     vs_top=(vs_base=base+8)+2;
  1786.     return;
  1787. T918:;
  1788.     if((base[6])==Cnil){
  1789.     goto T970;}
  1790.     base[8]= (base[2]==base[3]?Ct:Cnil);
  1791.     base[9]= Ct;
  1792.     vs_top=(vs_base=base+8)+2;
  1793.     return;
  1794. T970:;
  1795.     base[8]= Cnil;
  1796.     base[9]= Cnil;
  1797.     vs_top=(vs_base=base+8)+2;
  1798.     return;}
  1799. }
  1800. /*    function definition for SUB-INTERVAL-P    */
  1801.  
  1802. static L53()
  1803. {    register object *base=vs_base;
  1804.     register object *sup=base+VM9;
  1805.     vs_reserve(VM9);
  1806.     check_arg(2);
  1807.     vs_top=sup;
  1808. TTL:;
  1809.     base[2]= Cnil;
  1810.     base[3]= Cnil;
  1811.     base[4]= Cnil;
  1812.     base[5]= Cnil;
  1813.     if(!(endp(base[0]))){
  1814.     goto T978;}
  1815.     base[2]= VV[29];
  1816.     base[3]= VV[29];
  1817.     goto T976;
  1818. T978:;
  1819.     if(!(endp(cdr(base[0])))){
  1820.     goto T984;}
  1821.     base[2]= car(base[0]);
  1822.     base[3]= VV[29];
  1823.     goto T976;
  1824. T984:;
  1825.     base[2]= car(base[0]);
  1826.     base[3]= cadr(base[0]);
  1827. T976:;
  1828.     if(!(endp(base[1]))){
  1829.     goto T994;}
  1830.     base[4]= VV[29];
  1831.     base[5]= VV[29];
  1832.     goto T992;
  1833. T994:;
  1834.     if(!(endp(cdr(base[1])))){
  1835.     goto T1000;}
  1836.     base[4]= car(base[1]);
  1837.     base[5]= VV[29];
  1838.     goto T992;
  1839. T1000:;
  1840.     base[4]= car(base[1]);
  1841.     base[5]= cadr(base[1]);
  1842. T992:;
  1843.     if(!(base[2]==VV[29])){
  1844.     goto T1010;}
  1845.     if(base[4]==VV[29]){
  1846.     goto T1008;}
  1847.     base[6]= Cnil;
  1848.     vs_top=(vs_base=base+6)+1;
  1849.     return;
  1850. T1010:;
  1851.     base[6]= (base[4]==VV[29]?Ct:Cnil);
  1852.     if((base[6])==Cnil){
  1853.     goto T1016;}
  1854.     goto T1008;
  1855. T1016:;
  1856.     if(!(type_of(base[2])==t_cons)){
  1857.     goto T1019;}
  1858.     if(!(type_of(base[4])==t_cons)){
  1859.     goto T1022;}
  1860.     if(!(number_compare(car(base[2]),car(base[4]))<0)){
  1861.     goto T1008;}
  1862.     base[7]= Cnil;
  1863.     vs_top=(vs_base=base+7)+1;
  1864.     return;
  1865. T1022:;
  1866.     if(!(number_compare(car(base[2]),base[4])<0)){
  1867.     goto T1008;}
  1868.     base[7]= Cnil;
  1869.     vs_top=(vs_base=base+7)+1;
  1870.     return;
  1871. T1019:;
  1872.     if(!(type_of(base[4])==t_cons)){
  1873.     goto T1030;}
  1874.     if(!(number_compare(base[2],car(base[4]))<=0)){
  1875.     goto T1033;}
  1876.     base[8]= Cnil;
  1877.     vs_top=(vs_base=base+8)+1;
  1878.     return;
  1879. T1033:;
  1880.     base[7]= Cnil;
  1881.     goto T1028;
  1882. T1030:;
  1883.     if(!(number_compare(base[2],base[4])<0)){
  1884.     goto T1036;}
  1885.     base[8]= Cnil;
  1886.     vs_top=(vs_base=base+8)+1;
  1887.     return;
  1888. T1036:;
  1889.     base[7]= Cnil;
  1890. T1028:;
  1891.     if((base[7])==Cnil){
  1892.     goto T1008;}
  1893. T1008:;
  1894.     if(!(base[3]==VV[29])){
  1895.     goto T1042;}
  1896.     if(base[5]==VV[29]){
  1897.     goto T1040;}
  1898.     base[6]= Cnil;
  1899.     vs_top=(vs_base=base+6)+1;
  1900.     return;
  1901. T1042:;
  1902.     base[6]= (base[5]==VV[29]?Ct:Cnil);
  1903.     if((base[6])==Cnil){
  1904.     goto T1048;}
  1905.     goto T1040;
  1906. T1048:;
  1907.     if(!(type_of(base[3])==t_cons)){
  1908.     goto T1051;}
  1909.     if(!(type_of(base[5])==t_cons)){
  1910.     goto T1054;}
  1911.     if(!(number_compare(car(base[3]),car(base[5]))>0)){
  1912.     goto T1040;}
  1913.     base[7]= Cnil;
  1914.     vs_top=(vs_base=base+7)+1;
  1915.     return;
  1916. T1054:;
  1917.     if(!(number_compare(car(base[3]),base[5])>0)){
  1918.     goto T1040;}
  1919.     base[7]= Cnil;
  1920.     vs_top=(vs_base=base+7)+1;
  1921.     return;
  1922. T1051:;
  1923.     if(!(type_of(base[5])==t_cons)){
  1924.     goto T1062;}
  1925.     if(!(number_compare(base[3],car(base[5]))>=0)){
  1926.     goto T1065;}
  1927.     base[8]= Cnil;
  1928.     vs_top=(vs_base=base+8)+1;
  1929.     return;
  1930. T1065:;
  1931.     base[7]= Cnil;
  1932.     goto T1060;
  1933. T1062:;
  1934.     if(!(number_compare(base[3],base[5])>0)){
  1935.     goto T1068;}
  1936.     base[8]= Cnil;
  1937.     vs_top=(vs_base=base+8)+1;
  1938.     return;
  1939. T1068:;
  1940.     base[7]= Cnil;
  1941. T1060:;
  1942.     if((base[7])==Cnil){
  1943.     goto T1040;}
  1944. T1040:;
  1945.     base[6]= Ct;
  1946.     vs_top=(vs_base=base+6)+1;
  1947.     return;
  1948. }
  1949. /*    function definition for IN-INTERVAL-P    */
  1950.  
  1951. static L54()
  1952. {    register object *base=vs_base;
  1953.     register object *sup=base+VM10;
  1954.     vs_reserve(VM10);
  1955.     check_arg(2);
  1956.     vs_top=sup;
  1957. TTL:;
  1958.     base[2]= Cnil;
  1959.     base[3]= Cnil;
  1960.     if(!(endp(base[1]))){
  1961.     goto T1074;}
  1962.     base[2]= VV[29];
  1963.     base[3]= VV[29];
  1964.     goto T1072;
  1965. T1074:;
  1966.     if(!(endp(cdr(base[1])))){
  1967.     goto T1080;}
  1968.     base[2]= car(base[1]);
  1969.     base[3]= VV[29];
  1970.     goto T1072;
  1971. T1080:;
  1972.     base[2]= car(base[1]);
  1973.     base[3]= cadr(base[1]);
  1974. T1072:;
  1975.     base[4]= (base[2]==VV[29]?Ct:Cnil);
  1976.     if((base[4])==Cnil){
  1977.     goto T1091;}
  1978.     goto T1088;
  1979. T1091:;
  1980.     if(!(type_of(base[2])==t_cons)){
  1981.     goto T1094;}
  1982.     if(!(number_compare(base[0],car(base[2]))<=0)){
  1983.     goto T1088;}
  1984.     base[5]= Cnil;
  1985.     vs_top=(vs_base=base+5)+1;
  1986.     return;
  1987. T1094:;
  1988.     if(!(number_compare(base[0],base[2])<0)){
  1989.     goto T1100;}
  1990.     base[6]= Cnil;
  1991.     vs_top=(vs_base=base+6)+1;
  1992.     return;
  1993. T1100:;
  1994.     base[5]= Cnil;
  1995.     if((base[5])==Cnil){
  1996.     goto T1088;}
  1997. T1088:;
  1998.     base[4]= (base[3]==VV[29]?Ct:Cnil);
  1999.     if((base[4])==Cnil){
  2000.     goto T1107;}
  2001.     goto T1104;
  2002. T1107:;
  2003.     if(!(type_of(base[3])==t_cons)){
  2004.     goto T1110;}
  2005.     if(!(number_compare(base[0],car(base[3]))>=0)){
  2006.     goto T1104;}
  2007.     base[5]= Cnil;
  2008.     vs_top=(vs_base=base+5)+1;
  2009.     return;
  2010. T1110:;
  2011.     if(!(number_compare(base[0],base[3])>0)){
  2012.     goto T1116;}
  2013.     base[6]= Cnil;
  2014.     vs_top=(vs_base=base+6)+1;
  2015.     return;
  2016. T1116:;
  2017.     base[5]= Cnil;
  2018.     if((base[5])==Cnil){
  2019.     goto T1104;}
  2020. T1104:;
  2021.     base[4]= Ct;
  2022.     vs_top=(vs_base=base+4)+1;
  2023.     return;
  2024. }
  2025. /*    function definition for MATCH-DIMENSIONS    */
  2026.  
  2027. static L55()
  2028. {    register object *base=vs_base;
  2029.     register object *sup=base+VM11;
  2030.     vs_reserve(VM11);
  2031.     check_arg(2);
  2032.     vs_top=sup;
  2033. TTL:;
  2034.     if((base[0])!=Cnil){
  2035.     goto T1121;}
  2036.     base[2]= (base[1]==Cnil?Ct:Cnil);
  2037.     vs_top=(vs_base=base+2)+1;
  2038.     return;
  2039. T1121:;
  2040.     if(!(car(base[1])==VV[29])){
  2041.     goto T1125;}
  2042.     goto T1123;
  2043. T1125:;
  2044.     if(car(base[0])==car(base[1])){
  2045.     goto T1123;}
  2046.     base[2]= Cnil;
  2047.     vs_top=(vs_base=base+2)+1;
  2048.     return;
  2049. T1123:;
  2050.     base[0]= cdr(base[0]);
  2051.     base[1]= cdr(base[1]);
  2052.     goto TTL;
  2053. }
  2054. /*    function definition for COERCE    */
  2055.  
  2056. static L56()
  2057. {    register object *base=vs_base;
  2058.     register object *sup=base+VM12;
  2059.     vs_reserve(VM12);
  2060.     check_arg(2);
  2061.     vs_top=sup;
  2062. TTL:;
  2063.     base[2]= base[0];
  2064.     base[3]= base[1];
  2065.     vs_top=(vs_base=base+2)+2;
  2066.     L49();
  2067.     vs_top=sup;
  2068.     if((vs_base[0])==Cnil){
  2069.     goto T1130;}
  2070.     vs_top=(vs_base=base+0)+1;
  2071.     return;
  2072. T1130:;
  2073.     base[2]= base[1];
  2074.     vs_top=(vs_base=base+2)+1;
  2075.     L50();
  2076.     vs_top=sup;
  2077.     base[1]= vs_base[0];
  2078.     {object V23= car(base[1]);
  2079.     if((V23!= VV[64]))goto T1138;
  2080.     base[4]= make_fixnum(length(base[0]));
  2081.     base[3]= one_minus(base[4]);
  2082.     base[2]= Cnil;
  2083. T1141:;
  2084.     if(!(number_compare(base[3],VV[26])<0)){
  2085.     goto T1142;}
  2086.     vs_top=(vs_base=base+2)+1;
  2087.     return;
  2088. T1142:;
  2089.     base[4]= elt(base[0],fixint(base[3]));
  2090.     base[2]= make_cons(base[4],base[2]);
  2091.     base[3]= one_minus(base[3]);
  2092.     goto T1141;
  2093. T1138:;
  2094.     if((V23!= VV[37])
  2095.     && (V23!= VV[45]))goto T1150;
  2096.     if(endp(cdr(base[1]))){
  2097.     goto T1151;}
  2098.     if(endp(cddr(base[1]))){
  2099.     goto T1151;}
  2100.     if(caddr(base[1])==VV[29]){
  2101.     goto T1151;}
  2102.     if(endp(cdr(caddr(base[1])))){
  2103.     goto T1151;}
  2104.     base[2]= VV[87];
  2105.     vs_top=(vs_base=base+2)+1;
  2106.     Lerror();
  2107.     vs_top=sup;
  2108. T1151:;
  2109.     base[5]= base[1];
  2110.     base[6]= make_fixnum(length(base[0]));
  2111.     base[2]= simple_symlispcall_no_event(VV[110],base+5,2);
  2112.     base[4]= make_fixnum(length(base[0]));
  2113.     base[3]= VV[26];
  2114. T1166:;
  2115.     if(!(number_compare(base[3],base[4])>=0)){
  2116.     goto T1167;}
  2117.     vs_top=(vs_base=base+2)+1;
  2118.     return;
  2119. T1167:;
  2120.     base[5]= elt(base[0],fixint(base[3]));
  2121.     (void)(elt_set(base[2],fixint(base[3]),base[5]));
  2122.     base[3]= one_plus(base[3]);
  2123.     goto T1166;
  2124. T1150:;
  2125.     if((V23!= VV[111]))goto T1175;
  2126.     base[2]= base[0];
  2127.     vs_top=(vs_base=base+2)+1;
  2128.     Lcharacter();
  2129.     return;
  2130. T1175:;
  2131.     if((V23!= VV[83]))goto T1177;
  2132.     base[2]= base[0];
  2133.     vs_top=(vs_base=base+2)+1;
  2134.     Lfloat();
  2135.     return;
  2136. T1177:;
  2137.     if((V23!= VV[54]))goto T1179;
  2138.     base[2]= base[0];
  2139.     base[3]= VV[88];
  2140.     vs_top=(vs_base=base+2)+2;
  2141.     Lfloat();
  2142.     return;
  2143. T1179:;
  2144.     if((V23!= VV[106])
  2145.     && (V23!= VV[107])
  2146.     && (V23!= VV[55]))goto T1182;
  2147.     base[2]= base[0];
  2148.     base[3]= VV[89];
  2149.     vs_top=(vs_base=base+2)+2;
  2150.     Lfloat();
  2151.     return;
  2152. T1182:;
  2153.     if((V23!= VV[86]))goto T1185;
  2154.     if((cdr(base[1]))==Cnil){
  2155.     goto T1186;}
  2156.     if((cadr(base[1]))==Cnil){
  2157.     goto T1186;}
  2158.     if(!(cadr(base[1])==VV[29])){
  2159.     goto T1187;}
  2160. T1186:;
  2161.     base[3]= base[0];
  2162.     vs_top=(vs_base=base+3)+1;
  2163.     Lrealpart();
  2164.     vs_top=sup;
  2165.     base[2]= vs_base[0];
  2166.     base[4]= base[0];
  2167.     vs_top=(vs_base=base+4)+1;
  2168.     Limagpart();
  2169.     vs_top=sup;
  2170.     base[3]= vs_base[0];
  2171.     vs_top=(vs_base=base+2)+2;
  2172.     Lcomplex();
  2173.     return;
  2174. T1187:;
  2175.     base[4]= base[0];
  2176.     vs_top=(vs_base=base+4)+1;
  2177.     Lrealpart();
  2178.     vs_top=sup;
  2179.     base[3]= vs_base[0];
  2180.     base[4]= cadr(base[1]);
  2181.     vs_top=(vs_base=base+3)+2;
  2182.     L56();
  2183.     vs_top=sup;
  2184.     base[2]= vs_base[0];
  2185.     base[5]= base[0];
  2186.     vs_top=(vs_base=base+5)+1;
  2187.     Limagpart();
  2188.     vs_top=sup;
  2189.     base[4]= vs_base[0];
  2190.     base[5]= cadr(base[1]);
  2191.     vs_top=(vs_base=base+4)+2;
  2192.     L56();
  2193.     vs_top=sup;
  2194.     base[3]= vs_base[0];
  2195.     vs_top=(vs_base=base+2)+2;
  2196.     Lcomplex();
  2197.     return;
  2198. T1185:;
  2199.     base[2]= VV[90];
  2200.     base[3]= base[0];
  2201.     base[4]= base[1];
  2202.     vs_top=(vs_base=base+2)+3;
  2203.     Lerror();
  2204.     return;}
  2205. }
  2206. /*    local function CLOSURE    */
  2207.  
  2208. static LC67(base0)
  2209. register object *base0;
  2210. {    register object *base=vs_base;
  2211.     register object *sup=base+VM13;
  2212.     vs_reserve(VM13);
  2213.     if(vs_top-vs_base>1) too_many_arguments();
  2214.     if(vs_base>=vs_top){vs_top=sup;goto T1208;}
  2215.     vs_top=sup;
  2216.     goto T1209;
  2217. T1208:;
  2218.     base[0]= VV[29];
  2219. T1209:;
  2220.     base[1]= make_cons(base[0],Cnil);
  2221.     base[2]= list(3,VV[45],VV[21],base[1]);
  2222.     vs_top=(vs_base=base+2)+1;
  2223.     return;
  2224. }
  2225. /*    local function CLOSURE    */
  2226.  
  2227. static LC66(base0)
  2228. register object *base0;
  2229. {    register object *base=vs_base;
  2230.     register object *sup=base+VM14;
  2231.     vs_reserve(VM14);
  2232.     if(vs_top-vs_base>1) too_many_arguments();
  2233.     if(vs_base>=vs_top){vs_top=sup;goto T1211;}
  2234.     vs_top=sup;
  2235.     goto T1212;
  2236. T1211:;
  2237.     base[0]= VV[29];
  2238. T1212:;
  2239.     base[1]= make_cons(base[0],Cnil);
  2240.     base[2]= list(3,VV[45],VV[40],base[1]);
  2241.     vs_top=(vs_base=base+2)+1;
  2242.     return;
  2243. }
  2244. /*    local function CLOSURE    */
  2245.  
  2246. static LC65(base0)
  2247. register object *base0;
  2248. {    register object *base=vs_base;
  2249.     register object *sup=base+VM15;
  2250.     vs_reserve(VM15);
  2251.     if(vs_top-vs_base>1) too_many_arguments();
  2252.     if(vs_base>=vs_top){vs_top=sup;goto T1214;}
  2253.     vs_top=sup;
  2254.     goto T1215;
  2255. T1214:;
  2256.     base[0]= VV[29];
  2257. T1215:;
  2258.     base[1]= make_cons(base[0],Cnil);
  2259.     base[2]= list(3,VV[45],Ct,base[1]);
  2260.     vs_top=(vs_base=base+2)+1;
  2261.     return;
  2262. }
  2263. /*    local function CLOSURE    */
  2264.  
  2265. static LC64(base0)
  2266. register object *base0;
  2267. {    register object *base=vs_base;
  2268.     register object *sup=base+VM16;
  2269.     vs_reserve(VM16);
  2270.     if(vs_top-vs_base>1) too_many_arguments();
  2271.     if(vs_base>=vs_top){vs_top=sup;goto T1217;}
  2272.     vs_top=sup;
  2273.     goto T1218;
  2274. T1217:;
  2275.     base[0]= VV[29];
  2276. T1218:;
  2277.     base[1]= list(3,VV[35],VV[21],base[0]);
  2278.     vs_top=(vs_base=base+1)+1;
  2279.     return;
  2280. }
  2281. /*    local function CLOSURE    */
  2282.  
  2283. static LC63(base0)
  2284. register object *base0;
  2285. {    register object *base=vs_base;
  2286.     register object *sup=base+VM17;
  2287.     vs_reserve(VM17);
  2288.     if(vs_top-vs_base>1) too_many_arguments();
  2289.     if(vs_base>=vs_top){vs_top=sup;goto T1220;}
  2290.     vs_top=sup;
  2291.     goto T1221;
  2292. T1220:;
  2293.     base[0]= VV[29];
  2294. T1221:;
  2295.     base[1]= list(3,VV[35],VV[40],base[0]);
  2296.     vs_top=(vs_base=base+1)+1;
  2297.     return;
  2298. }
  2299. /*    local function CLOSURE    */
  2300.  
  2301. static LC62(base0)
  2302. register object *base0;
  2303. {    register object *base=vs_base;
  2304.     register object *sup=base+VM18;
  2305.     vs_reserve(VM18);
  2306.     if(vs_top-vs_base>2) too_many_arguments();
  2307.     if(vs_base>=vs_top){vs_top=sup;goto T1223;}
  2308.     vs_base++;
  2309.     if(vs_base>=vs_top){vs_top=sup;goto T1224;}
  2310.     vs_top=sup;
  2311.     goto T1225;
  2312. T1223:;
  2313.     base[0]= VV[29];
  2314. T1224:;
  2315.     base[1]= VV[29];
  2316. T1225:;
  2317.     base[2]= make_cons(base[1],Cnil);
  2318.     base[3]= list(3,VV[37],base[0],base[2]);
  2319.     vs_top=(vs_base=base+3)+1;
  2320.     return;
  2321. }
  2322. /*    local function CLOSURE    */
  2323.  
  2324. static LC61(base0)
  2325. register object *base0;
  2326. {    register object *base=vs_base;
  2327.     register object *sup=base+VM19;
  2328.     vs_reserve(VM19);
  2329.     if(vs_top-vs_base>1) too_many_arguments();
  2330.     if(vs_base>=vs_top){vs_top=sup;goto T1228;}
  2331.     vs_top=sup;
  2332.     goto T1229;
  2333. T1228:;
  2334.     base[0]= VV[29];
  2335. T1229:;
  2336.     if(!(base[0]==VV[29])){
  2337.     goto T1232;}
  2338.     base[1]= VV[34];
  2339.     vs_top=(vs_base=base+1)+1;
  2340.     return;
  2341. T1232:;
  2342.     base[1]= number_expt(VV[31],base[0]);
  2343.     base[2]= one_minus(base[1]);
  2344.     base[3]= list(3,VV[16],VV[26],base[2]);
  2345.     vs_top=(vs_base=base+3)+1;
  2346.     return;
  2347. }
  2348. /*    local function CLOSURE    */
  2349.  
  2350. static LC60(base0)
  2351. register object *base0;
  2352. {    register object *base=vs_base;
  2353.     register object *sup=base+VM20;
  2354.     vs_reserve(VM20);
  2355.     if(vs_top-vs_base>1) too_many_arguments();
  2356.     if(vs_base>=vs_top){vs_top=sup;goto T1234;}
  2357.     vs_top=sup;
  2358.     goto T1235;
  2359. T1234:;
  2360.     base[0]= VV[29];
  2361. T1235:;
  2362.     if(!(base[0]==VV[29])){
  2363.     goto T1238;}
  2364.     base[1]= VV[30];
  2365.     vs_top=(vs_base=base+1)+1;
  2366.     return;
  2367. T1238:;
  2368.     base[1]= one_minus(base[0]);
  2369.     base[2]= number_expt(VV[31],base[1]);
  2370.     base[3]= number_negate(base[2]);
  2371.     base[4]= one_minus(base[0]);
  2372.     base[5]= number_expt(VV[31],base[4]);
  2373.     base[6]= one_minus(base[5]);
  2374.     base[7]= list(3,VV[16],base[3],base[6]);
  2375.     vs_top=(vs_base=base+7)+1;
  2376.     return;
  2377. }
  2378. /*    local function CLOSURE    */
  2379.  
  2380. static LC59(base0)
  2381. register object *base0;
  2382. {    register object *base=vs_base;
  2383.     register object *sup=base+VM21;
  2384.     vs_reserve(VM21);
  2385.     check_arg(1);
  2386.     vs_top=sup;
  2387.     base[1]= one_minus(base[0]);
  2388.     base[2]= list(3,VV[16],VV[26],base[1]);
  2389.     vs_top=(vs_base=base+2)+1;
  2390.     return;
  2391. }
  2392. /*    local function CLOSURE    */
  2393.  
  2394. static LC58(base0)
  2395. register object *base0;
  2396. {    register object *base=vs_base;
  2397.     register object *sup=base+VM22;
  2398.     vs_reserve(VM22);
  2399.     check_arg(0);
  2400.     vs_top=sup;
  2401.     base[0]= VV[23];
  2402.     vs_top=(vs_base=base+0)+1;
  2403.     return;
  2404. }
  2405. /*    local function CLOSURE    */
  2406.  
  2407. static LC57(base0)
  2408. register object *base0;
  2409. {    register object *base=vs_base;
  2410.     register object *sup=base+VM23;
  2411.     vs_reserve(VM23);
  2412.     check_arg(0);
  2413.     vs_top=sup;
  2414.     base[0]= list(3,VV[16],VV[17],VV[18]);
  2415.     vs_top=(vs_base=base+0)+1;
  2416.     return;
  2417. }
  2418.